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Ll 
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Ll 
Ll 
Ll 
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LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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SSSSSSSS TITTTTTTTT RRRRRRRR RRRRRRRR EEEEEEEEEE PPPPPPPP LL AAAAAA cccccccc 
SSSSSSSS_ TTTTTTTTTT RRRRRRRR RRRRRRRR EEEEEEEEEE PPPPPPPP LL AAAAAA ccccccce 
ss TT RR RR RR RR EE PP rr th Ab AA CC 
SS TT RR RR RR RR EE PP PP LL AA AA CC 
SS TT RR RR RR RR EE PP re a AA AA CC 
ss TT RR RR RR RR EE PP PP LL AA AA CC 
SSSSSS TT RRRRRRRR RRRRRRRR EEEEEEEE PPPPPPPP LL AA AA CC 
SSSSSS TT RRRRRRRR RRRRRRRR EEEEEEEE PPPPPPPP LL Aa AA CC 
SS TT RR RR RR_ RR EE PP LL AAAAAAAAAA CC 
SS TT RR RR RR RR EE PP LL AAAAAAAAAA CC 
SS TT RR RR RR RR EE PP LL AA AA CC cece 
SS TT RR RR RR RR EE PP LL AA AA CC eves 
SSSSSSSS TT RR RR RR RR EEEEEEEEEE PP LLLLLLLLLL AA AA cccccccc eeee 
SSSSSSSS TT RR RR RR RR EEEEEEEEEE PP LLLLLLLLLL AA AA cccccccc cece 
LL III! SSSSSSSS 
LL III! SSSSSSSS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] S$ 
LL I] SS 
LL I] SS 
LL II SS 
LLLLLLLLLL 11111 SSSSSSSS 
LLELLLLLLLL III] SSSSSSSS 
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127808-138e 93:40:98 YETARTL SRE ISTAREPL AC. B42; 1 . (1) | 
“Se 001 MODULE STRSREPLACE ( ! replace a substring in a string | 
; 5 008 IDENT = '1-005" ! File: STRREPLAC.B32 Edit: RKR1005 
ee 005 ds | 
oe mae 
: 3 44 i i eeeerereerrereerereeretentareereeeereereteeererteeeereeeeneeeeeeeeeeeeeeeetse | 
s '@ te | 
s; 7 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 11 0011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
3 \§ pols : is ALL RIGHTS RESERVED. * | 
Py ; ® 
s 1% 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 16 8018 1 !® INCLUSI OF THE ABOVE COPYRIGHT NOTICE. THIS S$ ARE OR ANY OTHER * 
3 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 1} ith ! tn TRANSFERRED. * 
Z if 5 
$ $3 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: é 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $7 88 Z : i CORPORATION. * 
Ps ; 
: 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 $$ Be $ : . SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
: 28 0028 1 Ie e 
2 $3 it 34 : j SASMESRT SSRN SHAAOSENENSN ASNT ENTERS RO ROTTEN NTN T UNNI OR ANN TT TETS INTRO EROOONTe 
= or 0031 1— 
3 $8 ih 1 lee 
; 0035 1 ! FACILITY: String support Library 
; «34 0034 1 | | 
; $ Boe 1 ! ABSTRACT: 
3 6 036 1! | 
<a 0037 1! This module take an input string, an output string, and a 
a: 0038 1! replacement string of any supported class or ctype, It copies 
; 0039 1! the source string to the destination string replacing the part 
; 60 0040 1! of the source Str tne specified by a starting position and an 
; $3 apes ' ending position by the replacement string. 
; 4 
3 cs a9é8 : : ENVIRONMENT: User mode, AST level or not or mixed 
; 45 bocs 1 i AUTHOR: R. Will, CREATION DATE: 2-Dec-79 
; 46 pose 1! 
s 67 047 1 ! MODIFIED BY: 
3 48 3 1! 
; «649 1! R, Will, 2-Dec-79: VERSION 01 
: 30 50 1! 1-601 - or ginal | 
; 1 51 1 ! 1-002 = String speedup. make JSB entry do code in Line. | 
26 8236 1! RW 8-Jan-1 ; 
2 > 053 1 ! 1-003 - Enhance to recognize additional classes of descriptors by 
; «54 054 1! using SSTRSGET_LEN_ADDR to extract length and address of 
3 2? 8832 ! first data byté. Remove string interlocking code. 
: 3 0089 1 § 1-004 = Speed up code. RKR 7-0CT-1981. 
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SWITCHES: 


SWITCHES ADDRESSING_MODE 
(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES: 


REQUIRE ‘RTLIN:STRLNK'; ! Use require file with string Linkage 
! 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
STRSREPLACE, ! replace a substring 
STRSREPLACE_R& : STRSJSB_REPLACE; ! replace a substring, JSB entry 
' 


INCLUDE FILES: 


REQUIRE 'RTLIN:RTLPSECT’; ! Declare PSECTs code 

REQUIRE "RTLIN:STRMACROS'; ! use string macros to code 

LIBRARY ‘RTLSTARLE'; ! STARLET Library for macros and symbol 
' 

i MACROS: NONE 


i EQUATED SYMBOLS: NONE 


: PSECT DECLARATIONS 
DECLARE _PSECTS (STR); 


i OWN STORAGE: NONE 
; EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
L . ! Routine to signal error 
STRSCOPY_R_RB : STRSJSB_COPY_R ; ! Routine to do the copy 


mn” 
ae 
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121 1 } 1 EXTERNAL LITERAL 
3s } } } STRE_RORMAL : successful conples ton 
; ! } ! ! STR$_STRTOOLON tried gggeete string longer 
; : n 
; 125 1 i$ 1 STRS_ILLSTRSPE, ' illegal string specification 
; 126 1318 1 STRS_ILLSTRPOS; ! illegal string position 


SO - - 


4 
TRSREPLACE ihese =1984 01:47: AX-11 Bliss-32 V4.0-74 
3 O08 1a-Sep-19 4 035i 48 LIBRTL-SRCISTRREPLAC.B 2;1 
19 GLOBAL ROUTINE STRSREPLACE ( ! Replace a substring 
DEST_DESC, ! Pointer to destination descriptor 
SRC_BESC ! Pointer to source descriptor 
START POS, i First character to be included 
END_POS, ' Last character position to include 
REPCACE_DESC ! pointer to replacement string desc 


lee 


FUNCTIONAL DESCRIPTION: 


This routine copies to the destination string, the characters 
from the ging of the source gtr ing through the character 
before that specified by the start position (3rd input), then 
it continues copying to the destination string cektng the 
input from the replacement string (the 5th input). hen the 
replacement string is exhausted, the copy continues from the 
source string starting at the character position after the end 
position (4th input parameter) until the source string is 
exhausted. The string is built in a genporary ond copied to 
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COMPLETION CODES: 
any codes returned by STRSREPLACE_R8 
SIDE EFFECTS: 
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i 
1 : the destination string (by JSB to STRSCOPY_R_R8) according 
; : to the syntax of the class of the destinatTon string, e 
: following conditions will return warnings, but the listed 
44 ; actions will be taken, 
45 : If the starting position is < 1, 1 is used. If the pnding 
rf ; position is > length of the source string, the length of the 
4 ; source string is used. If the averting position > the ending 
48 : position, the oyerlonping portions of the source string will be 
49 : copied twice. The CALL entry is implemented by JSBing to the 
29 JSB entry. 

33 ; FORMAL PARAMETERS: 

354 : DEST _DESC.wt.dx pointer to destination string descriptor 
55 ! SRC_BESC.rt.dx pointer to source string descriptor 
2$ 1 START_POS.rl.r character position in source to start 
5 ' substring 
58 : END_POS.rl.r character position in source to end 
59 ; Supetr ine 

? REPLACE _DESC.rt.dx pointer to replacement string descriptor 
§ ; IMPLICIT INPUTS: 

NONE 

: IMPLICIT OUTPUTS: 

NONE 

i 

i 
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; Routine Size: 
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any side effects of STRSREPLACE_R8 


T_DESC 
RETURN STRSREPLACE_ 


REPLATE_DESC [0,0,0,0)); 


1 
1 
1 
1 
BEGIN 
SRC_DESC : REF SSTRSDESCRIPTOR, 
REPCACE DESC : REF SSTRSDESCRIPTOR, 
DES : REF SSTRSDESCRIPTOR; 
R8 
D 
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01FC 00000 
54 14 AC 00 00002 
53 10 C dO 00006 
52 oc «BC pO QOO0A 
50 04 AC 7D 0000 
0000v 30 0001 
04 0001 


22 bytes, Routine Base: _STRSCODE + 0000 
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att | AX-11 BLi jogs -32 v4.0 
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'End of STRSREPLACE 
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STRSREPLACE 
REPL LACE DESC, R4 


Save R2,R3,R4,R5,R6,R7,R8 
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GLOBAL ROUTINE STRSREPLACE_R8 ( 


44 


K 4 
ecSep-19e6 2icoris Et 
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replace a substring 


X-11 B 
IBRTL. 


DEST_DESC, ! Pointer to destination descriptor 

SRC_BESC ! Pointer to source descriptor 

START POS, i First character to be included 

END POS, ' Last character position to include 
REPCACE_DESC ! Pointer to replacement string desc 


) : STRSJSB_REPLACE = 


i FUNCTIONAL DESCRIPTION: 


This routine copies to the destination string, the characters 
from the soeenae of the source eteing through the character 
before that specified by the start position (3rd input), then 
it continues copying to the destination string taking the input 
from the replacement string (the 5th input). When the 
replacement string is exhausted, the copy continues from the 
source string starting at the character position after the end 
position (4th input parameter) until the source string is 
exhausted. The spring is bu na 

temporary and copied to the destination string 

(by JSB to STRSCOPY_R_R8) accordin 

to the syntax of the class of the destination oeremn The 
following conditions will return warnings, but the listed 
actions will be taken, 

If the atere see position is < 1, 1 is used. If the ending 
position is > length of the source string, the length of the 
source string is used. If the were position > the ending 
osition, the overlapping portions of the source string will 
e copied twice. 


FORMAL PARAMETERS: 


DEST_DESC.wt.dx pointer to destination string descriptor 
SRC_BESC.rt.dx pointer to source string descriptor 
START_POS.rl.v character position in source to start 
substrin 
END_POS.rl.v character position in source to end 
substrin 
REPLACE_DESC.rt.dx pointer 20 replacement string descriptor 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
STRS_NORMAL successful completion : 
STRS_TRU string was truncated when copied into 


destination 
STRS_ILLSTRPOS if START_POS or END_POS is < 0 or > 


met 
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] 
| 
| 
5 Bae LIBRTL.SRCJSTRREPLAC.B32;1 (4) | 

; 263 1453 1! sourcesten | 

; 6% 14 4 STRS$_ILLSTRSPE f START_P 3, END_POS | 

3 08 14 § 1 ! SIDE EFFECTS: 

3; @€ 14 1! 

; 268 1o28 1! allocation or deallocation of dynamic string space | 

3 4 1323 : may signal STRS_INSVIRMEM, STRS_ILLSTRCLA or STRS_FATINTERR 

; 271 1461 1 !<- | 

; Lf 1408 1 

3 af 146 BEGIN 

: 276 1464 

s er? 1465 LOCAL 

; 276 1466 COPY_LENGTH ! Length of string built 

3; ev? 1467 ALLOE. LENGTH : UNSIGNED WORD, ! actual Length 

: 278 1468 Ww POINTER ' keep place in temp string 

: 279 1469 RETOAL START, i 1 <= actual_start <= srclen 

; 280 1470 TUAL_END, ! 1 <= actual[end = rt tage 

; 281 1471 US, ' status returned b Ay 

3 HG are RETURN_STATUS, ! save status for this routine 

; oe 147 _LEN, : cengts 9 a ” ut string 

; «62846 1474 IN~ADDR, ' addr of i of input 

; «285 1475 REPL LEN ! Length of” re acenent String 

: 286 1476 REPL_A DDR, ! addr of 1 yte of replace. 

; sor Veer TEMP~DESC : SSTRSDESCRIPTOR; ! area to build output string 

; $B 1479 MAP 

; 290 1480 SRC_DESC : REF SSTRSDESCRIPTOR, 

3 91 1481 § REPLACE DESC : REF $STRSDESCRIPTOR, 

: 4 et DEST_DESC : REF SSTRSDESCRIPTOR; 

; 294 1484 RETURN_STATUS = 1 ; ! Assume success to follow 

; 295 1485 

: 96 1486 '+ 

: 44 et precompute lengths and addresses involved 

: +44 1489 SSTRSGET_LEN_ADDR ( SRC_DESC, IN_LEN, IN_ADDR ) 

; 4 i SSTRSGET_LEN_ADDR ( REPCACE_DESC? REPL LEN, REPL. * ADDR s 

: 30¢ 1036 ACTUAL_START = .START_POS; 

; 149 ACTUAL_END = END POS; 

; 304 1494 

3; 3S 1495 + 

; s] 1399 ! detect error if START_POS > END_POS 

; 149 te 

; 308 1498 

Hy 09 1499 IF .ACTUAL_END LSS .ACTUAL_START THEN 

3 19 1300 RETURN_STATUS = STRS_ICLSTRSPE; ! START_POS > END_POS 

; \¢ 1206 '¢ 

, 3 150 i actual end is >= 0 and <= source string Length 

: 4314 1504 ie 

3; «63515 1505 

i 38 1306 IF .IN_LEN LSS .ACTUAL_END | 

: 31 150 THEN | 

; 318 1508 BEGIN : 

; 319 1509 RETURN_STATUS = STRS_ILLSTRPOS; ! END_POS is too Large | 
| 
| 


a — } 


li 138 c thats 74s 
LIBRTL.SRCJSTRREP the B52;1 (4) 


Mm 4 
EPLACE i =| 1384 01:47 8 AX-11 B 
ACTUAL_END = .IN_LEN ; } 


' use srclen, remember 
error 
ELSE! P 4 ACT END LSS 0 


EN BEGIN 
RETURN. STATUS = STRS_ILLSTRPOS; ie. POS is too small 
ACTUAL_END = 0; ! Use’1, remember error 


ie iN LEN + 1 LSS .ACTUAL_START 


RETURN. STATUS = intense START_POS is too large 


ACTUAL_START = .IN use srclen, remember 


ete ehh eth ech edb ech duh “lh “dh adh eh dh adh hh Ah ) 


IAPOPOPOPOPOPONOPUPUNYD 2 2 oe 


END error 
ae ie »ACTUAL_START LSS 1 


NBEGIN 
RETURN_STATUS = STRS_ILLSTRPOS; ! START_POS is too small 
ACTUAL “START = 1; ! use 1, remember error 


! initialize descriptor 


14 
A Number to copy is number from src + number from replace 
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2 
ef t Create a temp descriptor and build destination string in it. 
2 
2 
2 
rd 
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; COPY_LENGTH = .IN_LEN = .ACTUAL_END + .ACTUAL_START - 1 + .REPL_LEN; 
re if -COPY_LENGTH GTR 65535 

¢ by ey RETORN_STATUS = STR$_STRTOOLON ' remember fatal error 

BEGIN 

44 ALLOC_LENGTH = .COPY_LENGTH; ! need word unsigned for macro 
368 Llocate space to tem 

70 IF (NOT (STATUS = SSTRSALLOC_ T™P’ (. PALLOC ren TH, TEMP_DESC))) 
71 THEN RETURN_ STATUS = .STATUS” ! if fail S, remember failure 
% SE ! if it succeeds continue 

7 BEGIN 

74 

75 '¢ 

76 i copy up to start_pos from source string into temp string 


| 
| “actual Start is >= 1 and <= source string length + 1 
| 
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7-005 eet Tete MRT bt tts Bie tae ee ’ a) 
e are 1367 4 '- ; 
; 378 1 98 4 NEW_POINTER = CHSMOVE (. ACTUAL START - 1, .IN a4 $F ° 
; 379 1 § 4 .TEMP_DESC COSCSA_POINTER)); ‘ 
; 380 1570 4 ‘ 
; 381 1571 4 + | : 
3 : ye ? copy entire replacement string onto end of temp string : 
; ¢4 1374 ? NEW_POINTER = CHSMOVE (.REPL_LEN, .REPL_ADDR, .NEW_POINTER); . 
; 386 1576 4 + : 
3 Jer 1577 4 i aoa Rey from END_POS to end in source string onto end of temp : 
; 388 1308 4 ' str : 
; 389 1579 4 ie : 
: 90 1580 4 CHSMOVE (. tne LEN = .ACTUAL_E ’ 
: 391 1581 4 HS$PLUS (.IN ADDR; NACTUAL _END), : 
: 39 1386 4 atts POINTERS; ‘ 
; 39 1583 4 : 
: 394 1584 4 ‘+ : 
: 395 1585 4 i Copy the temp to the destination string and deallocate ; 
s 3 1586 4 ' the temp ; 
; 397 1587 4 ie : 
; 398 1588 4 ; 
; 399 1589 4 STATUS = STRSCOPY_R_RB ( | : 
: 400 1590 4 -DEST_DESC, ; 
; 401 1591 4 . TEMP_DESC posteu. LENG ; 
; 402 139¢ 4 ~TEMP-DESC CDSCSA be IRTERS ns : 
3; 403 1593 4 IF .STATUS NEQ SS$ -NORMAL~ : 
3; 404 1594 4 THEN RETURN_STATUS = .STATUS; ! copy truncated, or : 
3; 405 1595 4 ' fatal error, return 3 
; 406 1596 4 ! instead of previous : 
: 407 1597 4 i status : 
: 408 1598 4 F 
: 609 1599 5 IF (NOT (STATUS = SSTRSDEALOC_TMP (TEMP_DESC))) soot tecete : 
; 410 1600 5 !' the temp 3 
; 6411 1601 4 THEN RETURN_STATUS = .STATUS; 3 
: 412 iene 3 END; ! end of allocate else 3 
3 $615 1603 3 3 
; aie 16 2 END; ! end of STRTOOLON else : 
> 416 1606 3 SSTRSSIGNAL Ag ® aaa STATUS); ! signal severe errors : 
3; 417 1607 RETURN -RETORN_ STATUS; $ 
; 418 1608 1 END; ‘End of STRSREPLACE . 
~-EXTRN STRSANALYZE_SDESC_R1 ; 
-EXTRN STRSSINIT, STRSSV_INIT ; 
-EXTRN STRSSALOC_SHORT : 
-EXTRN STRS$$Q_ SHORT Q, LIBSGET_VM : 
-EXTRN STRS_INSVIRMEM, LIBSFREE_VM ; 
-EXTRN STRS_FATINTERR ; 
5E 18 C2 00000 STRSREPLACE_R8:: 3 
50 DD 00003 Suen RO a4 : aed : 
01 DD 2008 PUSHL #1 > 14864 | 3 
02 03 =A! 8 0007 CMPB 3(SRC_DESC), #2 > 1489 | 3 


5 
-Sep- 247: AX-11 Bliss-32 V4.0-74 Page 11 
: =300 71382 93:25:98 LIBRTL.SRCJSTRREPLAC.B32;1 (4) 
0B 1A 00008 BGTRU 1$ ; 
MOVZWL (SRC_DESC), IN_LE : 
de AE 04 i 06 ah MOVL S(SRC_DESCS, IR_ADDR | 
50 41 00 00018 MOVL  SRC_DESC, RO : | 
: 000000006 00 16 aot JB Rar gtaey ses ; 
10 AE ; : 
MOVL  R1, 12(SP) : 
- 0 03 Hy B 09 3 COPS 3(REPLACE_ DESC), #2 ; 1490 
57 oh it 00 4 MOVZWL (REPLACE_DESC), REPL_LEN : 
146 AE 04 Ab 06 90 2 MOVL 4 REPLACE, DESCS, REPL_ADDR 
50 se DO 00089 MOVL REPLACE DESC, RO ; | 
000000006 00 18 9005¢ JSB STRSANALYZE_SDESC_R1 | 
et eh a a eee aa 
3s 36 Dt b004¢ CMPL ACTOAL_ END, ACTOAL. START ; 1499 
F 00 00051 MOVL  § #STRS$_ILLSTRSPE, RETURN_STATUS + 1500 
$f rocks * Ke Dt 00058 5% cMPL IN. LEN, ACTUAL_END ; 1506 
00000006 8F D0 0005 MOVL w#STRS ILLSTRPOS RETURN_STATUS ; 1509 
Bo hiitd AE BO goes OWL INI TER, “ACTUAL En : 1319 
56 DS 00068 6$ TSTL | ACTUAL_END : 1513 
09 18 0006D BGEG 46s 7$ : ties 
6E 000000006 Ly D0 0006F MOVL Reracl ens o> RETURN_STATUS : 1516 
IN“LEN, RO > 1524 
7 “ $5 50 b} 00070 7 co RO” ACTUAL. START ; 
6E 000000006 BF D0 00082 MOVL aSTRS ILLSTRPOS RETURN_STATUS ; 1537 
ct de 3% oooBe aoe : 1358 
5 DS OOOBE 8S: TSTL | ACTUAL_START > 1531 
0A 14 00090 BGTR 9$ aba ye 
6E 000000006 af 00 90092 MOVL aSTRS ILLSTRPOS RETURN_STATU 1534 
18 AE 02060000 8F BO 0009¢ 98: = ROVL ASLari 936, “TEMP_DESC : 1343 
50 10 AE " af Ps O0A7 SUBL3 AETURL END IN_LEN, RO > 1551 
50 52 €0 OOOAC ADDL2 ACTUAL START, R : 
50 FF a7ah 5 OAF MOVAB -1(REPC_LEN)CRO gg f0PY LENGTH ; | 
OOOOFFFF 8F 50 01 poes cnet. cory LENGTH, #6553 ; 1553 
6E 000000006 SF 06 O0eD MOVL #STRS_ STRTOOLON, RETURN_STATUS ; 1554 
53 7 a0 ita, 10$: MOV COPY LENGTH, ALLOC. LENGTH : 1557 
07 000000006 00 BB OOCA BLBS STRSSV ‘ NIT ; ; 1560 
oeerere 4 000000006 gr b0 0008 11$: MOVL astns _NORMAL, RETURN, STATUS F 
OOFO BF i Bt aoe CPU OC“LENGTH, #240 
53 BS OO0E6 TSTW ALLOC_LENGTH | 
04 12 000E8 BNEQ 15$ : | 
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58 00000000600 
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BE 
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AE 
57 OC AE 
47 50 
52 tC & 
51 18 AE 
50 04 AE 
000000006 00 
58 50 
01 63 
5 000000006 
1¢ ar 
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8F 18 AE 
1¢ 
51 1¢ =AE 
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51 
51 07 
51 0000000060041 
B81 1C «BE 
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V4.0-74 
LIBRTL.SRCJSTRREPLAC .B52;1 
TEMP 


16$ 
ALLOC LENGTH, R1 


7, R1 
TR$$Q_SHORT_QCR1], REMQUE_ADDR 
O(REMQUE_ADBR), TEMP 

1 
5 


ALLOC_DONE 


C_DONE 

C"LENGTH, (SP) 
STRSSALOC_SHORT 
C_DONE, 16$ 
TURA_STATUS, 19$ 


RETURN_STATUS, 19% 
TEMP, TEMP_DESC+4 


TEMP_DESC+4 
ALL Oe LENGTH, 12(SP) 
12(SP) 


rd 
§ 
a0< 
\ $ 
15$ 
ALLO 
ALLO 
#1, 

ALLO 
R T 


4 
| 
5 


#2, LIBSGET VM 
RETURN_STATOS, 18$ 
#STRS_INSVIRMEM, RETURN_ STATUS 
ALLOC LENGTH, TEMP DESC 


Pp 
RETURN_STATUS, STATUS 
RETURN-STATUS, 208 


D 
RO; (ACTUAL_END)CR7], (NEW_POINTER) 
SC+4, R2 


0 
STATUS, #1 
21$ 


STATUS, RETURN STATUS 
#STRS_ NORMAL, RETURN_STATUS 
TEMP_BESC+4 


SERP DESC. #240 
ee DESC+4, STRING BLOCK 
ag (STRING BLOCK) , ACLOC_LENGTH 


#7, RI 
STR$$Q_SHORT_QCR 
a@TEMP_BESC+4> a0 


TEMP_DESC+4 


1], INSQUE_ADDR 
(INSQUE_ADBR) 


D ae 
EPLACE 16-Sep AX-11 Bliss-32 V 
-00 14-Sep 71382 93:45 ‘#8 LIBRTL.SRC STARE NPL ac. 5 2:1 
18 AE if AE HS 18 pot the§ z4SP) DESC, 24(SP) 
1 A F 1¢ eyenee 
sensceael BR ANU He leartee 
000000006 BF DO 001CD MOVL Ret RS ante RETURN, STATUS 
BPR Apigy 2: gue REVUE Sara Sua 
bg aves 2st: GEUE Alas sBRTUS guar 
04 6E 0 $5 ED O1E0 =~‘ CMPZV #3; RETURN, efe rus. ts 
09 165 BNEG 268 
E 0D 1€7 PUSHL ay rue grays 
000000006 00 1 FB OO1E9 CALLS 
50 E D0 O1F0 26$: MOVL Re fukn STATUS, RO 
SE 1C CO OOTF ADDL2 
05 001F6 $B 

Routine Size: 503 bytes, Routine Base: _STRSCODE + 0016 
419 1609 1 
420 1610 1 END 'End of module 
421 1611 1 
422 1612 0 ELUDOM 

PSECT SUMMARY 

Name Bytes Attributes 
_STRSCODE 525 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
eran Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 

.$255$DUA28: CSYSLIBISTARLET.L32;1 9776 y 0 581 00:00.8 
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BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS#L ISS: STRREPLAC/0BJ=08J8: STRREPLAC MSRC$: STRREPLAC/UPDATE=(ENHS: STRREPLAC 


ie 


ell 


As. Tine: 
nes/CPU M 


525 


80:4 


Lerenes/CPU-Rin: 2 
177 


omplete 


Compitatt 
Compi ation C 


gi 
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